home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Magazine / InternetPD / Soliton / Extras / Reko2Soliton.ifx < prev    next >
Encoding:
Text File  |  1998-03-28  |  1.4 KB  |  91 lines
  1. /*
  2. ** Convert Reko cardsets to Soliton
  3. */
  4.  
  5. /*trace results*/
  6.  
  7. OPTIONS RESULTS
  8.  
  9. /* First we need to open rexxsupport library */
  10.  
  11.     if ~show('l', 'rexxsupport.library') then do
  12.        if ~addlib('rexxsupport.library', 0, -30, 0) then do
  13.           say 'Could not find rexxsupport.library'
  14.           return 10
  15.        end
  16.     end
  17.  
  18. Redraw Off ; Undo Off
  19. tlx=2;tly=1
  20. sizx=88;sizy=130
  21. sepx=90;sepy=131
  22. setpalette '-1' 0 0 0
  23. swap
  24. createbuffer sizx*14 sizy*4 force
  25. REDRAW
  26. setpalette '-1' 24 90 148
  27. SWAP
  28.  
  29. GetMain ; IF result = "" THEN EXIT
  30. PARSE VAR result name width height depth .
  31. format = 0
  32. if width > 1300 then format = 1
  33.  
  34. do y = 0 to 3
  35.   do x = 0 to 12
  36.     x1 = tlx+x*sepx; y1 = tly+y*sepy
  37.     Scissors 
  38.     Box x1 y1 sizx sizy
  39.     Swap
  40.     BrushHandle 0 0
  41.     Point x*sizx y*sizy
  42.     redraw x*sizx y*sizy sizx sizy
  43.     Swap
  44.   end
  45. end
  46.  
  47. if format = 1 then do
  48.  x1 = 1352; y1 = 132
  49.  Scissors 
  50.  Box x1 y1 sizx sizy
  51.  Swap
  52.  BrushHandle 0 0
  53.  Point 13*sizx 0
  54.  Redraw 13*sizx 0 sizx sizy
  55.  Swap
  56.  
  57.  
  58.  x1 = 1262; y1 = 132
  59.  Scissors 
  60.  Box x1 y1 sizx sizy
  61.  Swap
  62.  BrushHandle 0 0
  63.  Point 13*sizx sizy
  64.  Redraw 13*sizx sizy sizx sizy
  65. end
  66.  
  67. if format = 0 then do
  68.  x1 = 1172; y1 = 132
  69.  Scissors 
  70.  Box x1 y1 sizx sizy
  71.  Swap
  72.  BrushHandle 0 0
  73.  Point 13*sizx 0
  74.  Redraw 13*sizx 0 sizx sizy
  75.  Swap
  76.  
  77.  
  78.  x1 = 1172; y1 = 263
  79.  Scissors 
  80.  Box x1 y1 sizx sizy
  81.  Swap
  82.  BrushHandle 0 0
  83.  Point 13*sizx sizy
  84.  Redraw 13*sizx sizy sizx sizy
  85. end
  86.  
  87. killswap
  88. killbrush
  89.  
  90. Undo On ; Redraw On
  91.